RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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TITTTTTIT 000000 PPPPPPPP PPPPPPPP AAAAAA GGGGGGGG : 
TTTTTTTTITT 000000 PPPPPPPP PPPPPPPP AAAAAA GGGGGGGG : 
TT 00 PP FP PP AA AA GG : 
TT 00 00 PP PP PP PP AA AA GG ; 
TT 00 00 PP PP PP PP AA AA GG : 
TT 00 00 PP PP PP PP AA AA GG ; 
TT 00 00 PPPPPPPP PPPPPPPP AA AA GG ; 
TT 00 00 PPPPPPPP PPPPPPPP AA AA GG ; 
TT 00 00 PP PP AAAAAAAAAA GG GGGGGG : 
TT 00 00 PP PP AAAAAAAAAA GG GGGGGG : 
TT 00 00 PP PP AA AA GG GG eee ; 
TT 00 00 PP PP AA AA GG GG coos : 
TT 000000 PP PP AA AA GGGGGG eee : 
TT 000000 PP PP AA AA GGGGGG sees : 
LL III SSSSSSSS : 
LL III! SSSSSSSS ; 
LL I] SS : 
LL I] SS : 
LL I] SS : 
LL I] SS : 
LL I] SSSSSS : 
LL I] SSSSSS ; 
LL I] SS ; 
LL I] SS : 
LL I] SS ; 
LL I] SS : 
LLLLLLLLLL III] SSSSSSSS : 
LLLLLLLLLL H1111 SSSSSSSS : 
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ZTITLE ‘Top of the eReae prgcesst 
MODULE toppag ( {pe T 
4BL1SS32C, +b MODE yt | = LONG_RELATIV 
ONEXTERNAL = LONG_RELATIV 


BEGIN 


. 
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'® 
‘e COPYRIGHT (c) 1978, 1980, 1982, 1984 B 


is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


i ALL RIGHTS RESERVED. 

iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER peazone NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
> TRANSFERRED. 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® CORPORATION. 


ie DIGITAL ASSUMES NO RESPONS BILIT 
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i FACILITY: DSR (Digital Standard RUNOFF) / DsRPLUS 

: ABSTRACT: Handles the top of the page. 

ENVIRONMENT: Transportable 

! AUTHOR: R.W. Friday CREATION DATE: November, 1981 
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-Sep- RUNOFF .SRCJTOPPAG.BLI; 


TTL ‘Revision History’ 


oO 


PPA ASSIS EE 
SOOWONOUNE WN" OODONOULS wn 


COOoOOoOoOooCoooooooooooooooooo 


SOOCOOCOOCOCOOOCOSooOo 
PARADA AAI EB 


= 
FUN SO ODNOUE AR SO OOVNOUE Ww" 


Oa hb 2 4 a = as 2s 2s —) 2 —s — —d 2 — > 9 as ss — 2 Ls ss 2) 2s os 2 ss 5 tt se 


REM00013 Ray Worshel 21-Mar-1984 

Moved the conditionalized pete. text length to the head 
of the ig @ ne so it qe e used everywhere it's needed. 
Also provided the logic for the other nenquagesi even 
though we don't have the correct words yet. 


REMO00012 Ray Marshall 31-Jan-1984 
Added conditionals for the German word for ''page'’: seite. 
KFA00011 Ken Alden 5-Jul-1983 


Added extra conditional on tnout call to prevent 
calling if the topnote jobs are empty. 


KFA00010 Ken Alden 14-Jun-1983 

Removed /down error messages. 

KFA00009 Ken Alden 13-Jun-1983 

/DOWN calculations now do not affect Line count on current page. 


KFA00008 Ken Alden 10-May-1983 
Boosted the Limit of the tuncation fixed strings to 
fix a truncation accvio. 


REROO007 Ron Randall 05-Apr-1983 
For DSRPLUS: Improved topnote handling. 
REROO006 Ron Randall 17-Mar-1983 


For DSRPLUS: 
Added code to output topnotes after title/subtitle. 


REMO0005 Ray Marshall 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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TOPPAG Top of the page processin 16-Sep-1984 01:53:59 AX-11 Bliss-32 V4.0-74 Pa 
v04-000 Module Level Beclarat ones 12-88-1382 94:38:36 RUNOFF ..SRCJTOPPAG.BLI; ” (33 
: 80 3 } 4SBTTL "Module Level Declarations’ 
H 6s tt ! TABLE OF CONTENTS: 
: 84 1 FORWARD ROUTINE 
683 6 5 1 toppag : NOVALUE, 
; & 084 1 truncate : NOVALUE; 
3; 6 (CST 085 1! 
; «688 0 § 1 ! INCLUDE FILES: 
>; 689 0 73 
; 90 088 1 LIBRARY ‘NXPORT:XPORT'; ! XPORT Library 
: a 8 4 ! REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
: 98 u 0281 1 SIF DSRPLUS. THEN 
3 94 U § 1 s herad REQ:DPLLIB'; ! DSRPLUS BLISS Library 
; 3 8 4 i tt bRaRY *REQ:DSRLIB‘ ' DSR BLISS Lib 
: . ; : rar 
: 97 0225 1 XFI , 
c) Oe 0 $ 1 
5; Ww 0 1! 
: 100 0228 1 ! MACROS: 
; 101 0229 1! 
: 106 0230 1 ! This macro makes certain that when blank Lines at the top or bottom of a page 
; 10 oS¢3 1 ! are skipped change bars don't get output. 
3 104 0 ¢ 1! 
3 105 0235 1 MACRO 
: 106 m 0234 1 NO_BAR_SKIP (N) = 
3: 107 m 0235 1 BEGIN 
: 108 M0236 1 LOCAL 
3: 109 M0237 1 HOLD_BARS; 
; 110 m0 $ 1 
: 0239 1 HOLD_BARS = .TSF_BARS; 
3 We M 8 40 1 TSF_BARS = FALSE; 
;. 3 M0241 1 USKIPL (N); 
3. (1146 i! tg 1 TSF_BARS = .HOLD_BARS; 
s 115 0243 1 ND %; 
s 1% ogee 1! 
s Vig 0245 1 ! EQUATED SYMBOLS: 
: #118 0246 1! 
3; 6119 S744 1 LITERAL 
; 120 48 1 form_feed = %0'14'; 
s 1e bee? 1! 
H 1¢¢ 0 3 } : EXTERNAL REFERENCES: 
HE HDT dream 
: 125 0253 1 DATTIM VECTOR ! Binary date and time. 
> 126 $34 1 FRA FIXED_ STRING 
: 127 55 1 GCA GCA_DEFINITION, 
3; 128 $28 1 HCT HCT_DEFINITION, 
: 193 $2 1 MRA : REF FIXED _STRING, 
: 130 58 1 NPAGEN PAGE_DEFIRITION, ! Number of next page. 
3; 6131 59 1 PAGEN PAGE DEFINITION, 
s 136 60 1 SCA_BEFINITION, 
3 13 61 1 SPAGER BLOCKVECTOR (1, PAGE SCT Size]. ' List of starting pages. 
3; «134 6¢ 1 TPAGER BLOCKVECTOR [1, PAGE_SCT_SIZEJ, ! List of terminating pages. 
s 133 6 1 PHAN : PHAN_DEFINITION, 
oo i 64 «1 SBTMRA : FIXED_STRING, ! Contains the subtitle, if any 


f the page rocessing 18-50 3ep- 1984 9}: 33: 38 AX-11 Bliss-32 V4.0-7 Page 4 


TOPPA te) 
Vv Oso mogu e Level Declarations 14-Sep- RUNOFF .SRCJTOPPAG. Bf: (3) 
, Vor 6265 1 SBTTSF VECTOR CTSF_SIZE], ! Subtitle descriptor. 
s 138 98 1 TITMRA : FIXED STRING ' Contains the title, if any. 
: 139 67 1 TITTSF : VECTOR CTSF_§17€), i Title descriptor. 
; 140 8 TSF : TSF_DEFINITION; 
: 148 U 1 1 XIF DSRPLUS XTHEN 
3; 1 U 027 1 EXTERNA 
r Vie : ie } TOPNOT : TN_DEFINITION; 
; 146 U 0274 1 EXTERNAL ROUTINE 
: 12 U o? : T 3 
: 129 io 1 
; 150 4 1 EXTERNAL LITERAL 
; 12) O° : RNF PWF ; ! "Page number won't fit on title’’ 
: 13 0 81 1 EXTERNAL LITERAL 
3: «6154 8 1 RINTES : UNSIGNED (8); “escape’’ character used in internal 
3 13? S S : ' data structures 
: 157 0285 1 EXTERNAL ROUTINE 
2 ee 
: 160 0288 1 ERML, ! Error message followed by location in file 
s ye) 0289 1 ERMN, i Error message w/number followed by location in file 
; 196 0290 1 LOUT, 
: 18 0592 1 PAGENG, 
: 165 0998 1 PUTTPG, 
; 166 0294 1 USKIPL; 
: 167 0295 1 
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ZSBITL 'TOPPAG -=-' 
GLOBAL ROUTINE toppag : NOVALUE = 


14+ 
FUNCTIONAL DESCRIPTION: 


Does everything at the top of a page that is included 
in the header area. 


i 

i] 

i 

| FORMAL PARAMETERS: — None 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 
; 

i 
le 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


cia 
! Text to add to the subtitle as truncated. 
FS_ALLOCATE (ADD_CHARS, 50), 
! Saved copy of Subtitle text overwritten by truncation. 
FS_ALLOCATE (SAVE_CHARS ,50); 
LOCAL 
Picoteene. ! Length of date string. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; “MRA, 
HOLD "MRA. LENGTH, 
HOLD“MRA-NEXT, 


! Areas for preserving current status. 


SGOOSOOOOOOOOOOWWOWOO) WOW WON INNS 
WN SO OONAOUESWN $C OODNOAUESWN “OO ONOULSWNO 


Ss 


INT7HL 
WORK-AREA : QJECTOR CCHSALLOCATION (50)], 
E ! Number of characters in page number. 


oo 


age-string. length : 
XI1F german £THEN oes 
INITIAL (6), 


WINN A AANA NAA NAAN AAAINWI AANA AAAWAANWIABIInoTPoTnoTrg 


PWN AA AWIN ANID PININPININPINID 2 2 OO OO OOOO 


ZELSE 
ZIF french XTHEN 
INITIAL(5), 


ZELSE 

ZIF italian ZTHEN 

ZELSE 

SFI MFI XFI 
PTR; 


cc cece ce 
SOOCOCOSCOOCOOOCOSOOSOOOCOOOOCOOCSOS OOOO OCOOOOOCOCOOCOOCOOOOCOOOOOOOOOOOOOO -- 


INITIAL(5), 
INITIAL(5), 


TEEN CLE <n ae ean te ae dey epanebenananandnendpanate rade kne 
DONAOULS WIN —OOW SF 


PROPRIO) et ot ot ot ot IO 


FS_INIT (SAVE_CHARS); ! Make sure this is initially zero 
HOLD_MRA = .MRA; . | Preserve current status 


Se Se Be Se Se Ge Se Se Se Be Ge Se Be Ge Se Se Se Be Ge Ge Ge Fe Ge Ge Ge Fe Ge FF SF Ge Ge Se Ge Fe Se Fe Ge Se Sse Se Se Se Se Fe SeSe Ge Se See See Se Sse esetees 


MEWN—o 
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HOLD TSF = TSF; 
FS_INIT (FRA); ! Initialize output buffer. 


! Get to top of page if not the very first line to be output. 
(IF__ .PHAN_SIMULATE 
og BOTTOM MOD .PHAN_PLINES) NEQ 0 
(.PHAN_BOTTOM MOD .PHAN_SLINES) NEQ 0) 


' Not already at top of 
PHAN_FORM_PEND = FORM_FE 


PHAN_FORM_PEND = 0; 


! If not top of first page advance page number and update page Layout. 
Baal .PHAN- TOP. FIRST . iti ' ~ J 


BEGIN ! Advance the page number. 


page. so need a form feed. 


‘ copy next page number to current page number 


BEG! 

MAP ! Make these structures 
PAGEN : VECTOR, ' vectors for easier 
NPAGEN : VECTOR; ! copying. 

INCR I FROM 0 _TO (PAGE_SCT_SIZE - 1) DO 
PAGEN C.1] = .NPAGEN C71]; 


END; 


' Next, bump page number of next page. 
IF _ NPAGEN. CSC¥_SUB PAGES ear 9 °°? 


' Not a subpage 
NPAGEN CSCT_PAGE) = .NPAGEN CSCT_PAGEJ + 1 

' it’s a puspoee 
NPAGEN CSCT_SUB_PAGE] = .NPAGEN CSCT_SUB_PAGE] + 1; 


! Bump the running page number of the document 
NPAGEN CSCT_RUN_PAGEJ = .NPAGEN CSCT_RUN_PAGE] + 1; 


! Update the page bagqut 
HCT_LAYOUT = ,HCT_LAYOUT_NP; 
HCT-LAYOUTN = [HCTTLAYOUTR_NP; 
eens -HCT_NMPG_NP; 
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PARED AAA & BS BB BE EEE EA 


AAD 
BUSA 
OOO OO O09 09 69 09 09 09 09 09 09 09 SIN NII NNN AAA AAA AA AUMUMIMUIUINGT 


NO 


SOOONOMULSWIN—O 


! If generating a table of contents, signal a new page by writing the 
! number of the page being started. 
4F ACAD BIC 


N 
AEUNSS6 

SSSSOODOOO 

MFPwn— 


! Yup, user Gere want a binary table of contents, 
so save this page number. 

i he pope number is written regardless of whether the user said : 
' ,ENABLE TOC or .DISABLE TOC, as long as he has said /CONTENTS. This 
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wore 


ot the page processing 


-Sep-1 


! is done so that page numbers are current in the .BTC file so the user 
! can .ENABLE the TOC in the middle of a page. 


IF FLIP _%THEN 


ZELS 
*F 1 


PUTTPG (PAGEN, FLIPSK_NEWPAG) ; 
PUTTPG (PAGEN, <1); 


H 9 Peate A: g° count. 
Ht CA_SKIP OUT AND 
-PHAR_ TOP-FIRST 


' 
TR BREE CREE NEeROBBETRRIME gut 


! It's sqpertent to reset PHAN_TOP_PAGE and PHAN_LINES_TP now, because 

' otherwise Ft UT gets calléd to output a fitte, LOOT will call NEWPAG 

1 which wi itl af this routine, which be call LOUT again, etc, in a loop. 
i That's because LOUT does not know who is calli ng it, would think that 

! whoever called it is trying to output Lines at the top of the page, and 

! so would try to get NEWPAG to put in the titles first, thereby leading to 
!' an incessant ‘cerure ive? Loop. 
PHAN_TOP_PAGE = FALSE; 

PHAN_ “LINES_ TP = b: 


ceneeee ee “EVEN''=ness of this page whose titles, etc, are about to 


HCT “opp. VEN = NOT .HCT_ODD_EVEN; 


! We are now just about to start processing a new page If we were 
' previously skipping because the user specitied a arting page, see if 


! This page is officially empty. 


.! this is it. 


If there is a list of pages to be output, and output is 
currently being skipped, see if this page begins a new 
outeyt Bink 
F CA P_OUT 
HEN 


IF NOT .GCA_CMD_QUICK ! Don't reset qurput-ok tap ing state if user 
i said /QUICK (that is, continue to skip). 
GCA_SKIP_OUT = 


NOT 
“(PAGFND (PAGEN, SPAGER, .GCA_ORANGE_CNT, FALSE) NEQ 0); 


ee 


Process the /DOWN switch. 


Turn on /down flag so as to not count Lines when skipping. 


gca_down_flag = true; 
IF .phan_down GTR 0 
THEN 
no_bar_skip (.phan_down); 
i Turn off the /down flag for skipping. 


Ets “300-1904 O1:55:59  Yaratt BLing-32 v4.04 


Y PA too of the page processing 1$-e0- 1384 9: 3B: 33 AX-11 Bliss-32 V4.0 Page 


-0 RUNOFF .SRCJTOPPAG. ort 
: 32? teh sce. doen, tag © fot 
H ca_down_flag = false; 
3 t§ $ ° . 
>; 34 4 it het headers 
> 344 47 THEN 
; 345 47 1+ 
; 6 47 Output the title. 
: 347 474 ! 
; 348 475 BEGIN 
; 349 rye 
; 350 47 IF .PHAN_HEADER 
3 é3 478 THEN 
; § 79 4 BEGIN ! This page should have a header. 
=: 0480 4 LOCAL 
; ze net ¢ HOLD_PAGING; 
3 390 0683 4 ! Temporari y owe off ppaging to avoid recursive interactions 
ae 0484 4 i petuee n LOUT and NEWPAG. 
3 58 0485 4 HOLD_PAGING = pnaN PAGING; 
; 359 0486 4 PHAN-PAGING = FALSE: 
; 360 0487 4 ' Switch text en a to saved title 
; 61 0488 4 TSF = TITTSF; 
3 o¢ 0489 4 MRA = TITMRA; 
3; 36 0490 4 ' Save current status of title. The Tol Leutag code works by 
: 364 0491 4 ! simply adding additional characters after the title directly 
; 365 Beas 4 ian she title buffer. The title status is restored later, 
; 366 0495 4 i so the title can be reused on subsequent pages. 
; 367 0494 4 HOLD_TSF_IN TLHL = .TSF_INT_HL; ! Save current text status. 
3 68 0495 4 HOLD-TSF_EXT_HL = .TSF_EXT-HL; 
; 369 0496 4 HOLD-TSF-ADJOST = .TSF gnduost 
; 370 0497 4 HOLD"MRA-NEXT = .FS_NEXT (MRA); 
: a7) Beas ? HOLD “MRA_ LENGTH = .FS “LENGTH (MRA); 
3 378 0500 4 IF NUMBER_PAGE 
; 374 0501 6 AND Tt HCT_CAYOUT EQL LAYOUT STANDARD) 
; $2 B28 ? OR (.HCT LAYOUT EQL LAYOUT_RON_BOTC)) 
: 377 0504 4 ! Put page number at end of title Line. 
; 378 0505 5 
; 79 0506 5 PTR = oe aon — gAntA): 
; 380 0507 5 ! Conver £ pege.” Ber and Re Pte Len ngth. 
: 81 b205 5 PAGE nLENGT PACPAG Mts | 
3 56 509 5 FILL-COUNT = (.GCA_LWIDTH PTs "EXT 
: Yi 219 CCPAGE™ “LENGTH + .page_ Sirlaa Length); 
; 85 21§ IF .FILL_COUNT LSS 0 OR 
3 387 AF THEN “MAXSIZE (MRA) = .FS_LENGTH (MRA)) LSS .FILL_COUNT) 
; 388 0315 : room at end of Line for page number. 
; 389 21g ERM” (RNFPWF, 0, 0) 
: 390 51 E 
; Wi 218 ! Put page number at end of title. 
3 M BY ° BEGIN 
; 394 S21 6 INCR 1 FROM.1 TO, FILL COUNT DO 
; 4 B2 $ ? FS_WCHAR (MRA, 2C ! Position out with spaces. 
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v04-000 TOPPA AG == phe . 12-868: : 3b 94: 38; 35 RUNOFF .SRCJTOPPAG. ort . (4) 
97 ! Get ‘page ' in proper case. 
338 PTR = chSPTR CCCASE PCT MD D_CASE FROM 0 TO 2 OF 
400 U Z1F german XTHEN 
401 U HCT_HD_LOWER] : UPLIT (‘seite '); 
4 ¢ U HCT_HD_UPPERJ : UPLIT (‘SEITE '); 
4 U HCT_HD_MIXED] : UPLIT (‘Seite '); 
404 5 ZELSE 
405 U 05 XIF french XTHEN 
40 U 05 HCT_HD_LOWER] : UPLIT ‘Be e'); 
40 U 05 HCT_HD_UPPER] : UPLIT (‘PAGE '); 
40 uU 05 HCT_HD_MIXED] : UPLIT (‘Page 
40 5 ZELSE 
64 U 05 ZIF italian XTHEN 
41 U 05 HCT_HD_LOWER] : UPLIT pe e'); 
4) U 05 HCT-HD-UPPER] : UPLIT ('PAGE 
4) U 054 HCT_HD_MIXED] : UPLIT (‘Page 
41 054 XELSE 
054 MCT ND LOWER) : UPLIT ‘Be e ') 
054 HCT-HD-UPPER] : UPLIT (PAGE ') 
054 HCT_HD_MIXED] : UPLIT (‘Page 
054 MFI OXFI XFI TES)) 
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! Put word ° page * at end of Line. 
iNCR I 1 FROM bags enAR Re Length DO 
FS_WCHAR (MRA, CHSRCHAR_A™(PTR)); 


PTR = CHSPTR (WORK_AREA); 


' Out ui converses fe g* pe passers 
INCR 1 FROM 1 TO .PAG H DO 
FS_WCHAR (MRA, CHSREHAR. _A (PTR)); 


! Count characters ages d. 
TSF_INT_HL = TSF _INT_HL 7 «FILL_COUNT + 

-PAGE Esher * bee" string. Length; 
TSF_EXT_HL = .TSF_EXT H 

: PAGE CERGTH +” .page_string_Length; 
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END; 
438 END; 
439 
440 IF_ .TSF_INT_HL NEQ 0 
441 THEN 
+46 ! There is something to output 
rok BEGIN 
445 ! If the user wants things centered, do it. 
rr IF .HCT_LAYOUT EQL LAYOUT_CENTERED 
448 TSF _ADJUST = (.GCA_LWIDTH = .TSF_EXT_HL)/2 
rch ELSE 
451 ' See if user wants the tit te /subtitle flipped 
$26 IF (.HCT_LAYOUT EQL LAYOUT. LIP_ODD) AND 
45 -HCT_ODD_EVEN 


' See if the user said .DATE. 
IF .HCT_DAT 

AND T(.HCT_LAYOUT EQL LAYOUT_STANDARD) 
ae (.HCT_LAYOUT EQL LAYOUT_RUN_BOTC)) 


' Get date information in work area. 
PTR = CHSPTR (WORK_AREA); 
CNVDAT(DATTIM,PTR,DATE_LENGTH) ; 


! See if date will fit. | 
! If not, write "' ... <date>’’ to the ADD_CHARS buffer. 
UF’ TSF WENT HL GTR (.GCA_LWIDTH - .DATE LENGTH) | 


497 


BEGIN 
FS_WCHAR (ADD_CHARS, XC" '); 


INCR_I FROM 1 TO 3 DO 
FS_WCHAR (ADD_CHARS, %C'."); 


16 
TOPPAG Top of the page processin Ib-5¢ -1984 01:53:59 AX-11 Bliss-32 V4.0-74 Page 10) 
v04~000 TOPPAG oo ' . 1 ~8ep-19 4 93:38:30 RUNOFF. SRCITOPPAG.BLI: . (4) | 
; tee oe) THEN | 
> 455 ¢ TSF_ADJUST = .GCA_LWIDTH = .TSF_EXT_HL; 
; c28 5 LOUT (); ! Output tifle Line. 
i; 4 584 TSF_LINT_HL = .HOLD_TSF_INT_HL; ! Restore title to its previous status. 
; 458 585 TSFTEXT“HL = .HOLDITSF-EXT-HL; 
; 459 5 8 TSF-ADJOST = .HOLD_TSF-ADJOST: 
; 460 3 FS_NEXT (MRA) = [HOLD_MRA_NEXT; 
; 461 8 FS-LENGTH (MRA) = .HOLD“MRA~LENGIH; 
; 46 589 ENB 
: 46 590 4 ELSE 
> 464 591 4 ' Even if there is no title reserve the title Line so 
; 465 238 4 ' that all pages have the same Layout. 
; 466 595 4 NO_BAR_SKIP (1); ! End of title processing. 
: 467 594 4 | 
; 468 0595 4 !+ 
: 469 8238 4 ! Output the subtitle. 
: 470 0597 4 !- 
3; «471 0598 4 IF .HCT_SUBTITLE 
3 ry) 0599 4 THEN 
; $7 0600 5 BEGIN 
; 474 0601 : LOCAL 
3; 475 Be0¢ ! Where (what column) to truncate the subtitle. 
; 476 0603 5 TRUNCATE_POINT; 
: 477 0604 5 
; 478 0605 5 TRUNCATE_POINT = 0; 
; 479 0606 5 FS_INIT TFRA); 
: 480 0607 5 FS-INIT (ADD CHARS); | 
; 481 0608 5 FS-INIT (SAVE_CHARS); | 
; 48 0609 5 ' Set up pointers to subtitle and save status. 
; 48 0610 § TSF = SBITSF; | 
3; «484 0611 5 MRA = SBTMRA 
; 485 0614 5 HOLD_TSF_EXT_HL = .TSF_EXT_HL; 
; 486 0613 5 HOLD-TSF-INT“HL = .TSF-INT-HL;: 
3; 487 0614 5 HOLD-TSF_ADJOST = .TSF-ADJOST; 
; 488 0615 5 HOLD-MRA_NEXT = .FS_NEXT (MRA); 
; 0616 5 HOLD“MRA-LENGTH = .FS"LENGTH (MRA); | 
3 0617 5 
0618 5 | 
: 0619 5 
3 0620 7 
3 0621 6 | 
3 06 ; 5 
; 6 6 
3 624 6 
3 5 6 
3 § 6 
. 6 
3 8 6 
$ 6 
; é 
3 7 
3 7? 
: 7? 
: 7 
; 0 7 


AAAAAAAAAAOO 


WANA 


SSSLEARANSSSVS 
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F 16 
16-Sep-1984 01:53:59 YAX=11_BLiss-32 v4.0-74 
13738871382 94:08:30 RUNOFF. SRC TOPPAG.BLI; 


T 
T 
3 11 FS_WCHAR (ADD_CHARS, %C° '); 
\¢ 3s PTR = CHS$PTR TWORK_AREA); 
H 14 641 7 INCR I FROM 1 TO .DATE_LENGTH DO 
: 1? 7) 4 FS_WCHAR (ADD_CHARS, CHSRCHAR_A (PTR)); 
; i$ 644 6 END; 
; 518 645 END 
3 319 ob8 ELSE 
; 0 64 
: 1 Bets 1 No date is called for. Check if subtitle will fit. 
3 § o¢ ! If not, write ‘' ,..'' to the ADD_CHARS buffer. 
; 50 If  .TSF_EXT_HL GTR .GCA_LWIDTH 
; 4 $2) THEN 
3 5 06 ¢ 6 BEGIN 
; 526 0653 6 FS_WCHAR (ADD_CHARS, %C’ '); 
s Ser 0654 6 
3s 3ee 0655 6 INCR I FROM 1 TO 3 DO 
; 529 0656 6 FS_WCHAR (ADD_CHARS, %C'.'); 
; 530 0657 6 
3s 931 0658 5 END; 
3 236 0659 5 
; 3 0660 5 ! Is truncation needed? If so, ADD_CHARS is nonzero. 
; 534 0661 6 iF ((.FS_LENGTH (ADD_CHARS) EQL 0 
; 23? B99 8 (.FS-LENGTH (ADD-CHARS) GEQ .GCA_LWIDTH)) 
s Sar 0664 5 ' Subtitle will fit as is. Add padding and date if 
: 538 0665 5 ! the user said .DATE. 
3; 539 0666 6 BEGIN 
; 540 0667 6 
: 541 0668 6 IF .HCT_DATE 
; 2¢6 0669 8 AND TC.HCT_LAYOUT EQL LAYOUT_STANDARD) 
; 54 0670 7 OR (.HCTILAYOUT EQL LAYOUTZRUN_BOTC)) 
3: 544 0671 6 THEN 
; 545 0672 7 BEGIN 
; 546 0675 7 LOCAL 
3; 547 0674 7 FILL COUNT; 
; 548 0675 7 
3; 549 0676 7 ! Calculate the required padding before the date. 
; $29 been FILL _COUNT = .GCA_LWIDTH = .TSF_EXT_HL = .DATE_LENGTH; 
3 $30 0679 7 ' Put in the padding. 
s 33 0680 7 INCR I FROM 1 TO .F LL_COUNT dO 
3 eee 1 4 FS_WCHAR (MRA, ZC’ ‘); 
3 228 685 7 ' Copy the date. 
H a2e tt 4 PTR = CHSPTR (WORK_AREA); 
: 559 e8g 7 INCR I FROM 1 TO .DATE_LENGTH DO 
: 269 . 4 FS_WCHAR(MRA, CHSRCHAR_A(PTR)); 
3 see ret: 7 ! Update the eperepr tote counts. 
: 56 690 7 TSF_INT_HL = .TSF_INT_HL + .FILL_COUNT + .DATE_LENGTH; 
; 564 691 7 TSFTEXT"HL = .TSFTEXTTHL + .FILLZCOUNT + .DATE-LENGIH; 
3 365 rs 6 om END; 
; $3 694 $ ELSE 


op of the page processing 18-50 3ep- 130% 9}: 3a: 38 AX-11 Bliss-32 V4.0-74 


04000 


T 
TOPPAG -Sep-1 RUNOFF ..SRCJTOPPAG.BLI; 
>; 968 95 2 : Subtitle must be truncated, Ces must add something; 
3 4 23 2 ac tigre’ eee OF ''...<date> 
; n 24 ? TRUNCATE_POINT = .GCA_LWIDTH = .FS_LENGTH (ADD_CHARS); 
; ig ; 0 6 ' Now actually truncate the subtitle MRA/TSF. 
: 574 701 ° TRUNCATE (. TRUNCATE_POINT 
; 575 7 ¢ ' Save the characters about to be overwritten on the MRA. 
: 6 7 6 PTR = .FS_NEXT (MRA); 
: 57 704 6 
; 578 Ph? 6 INCR I FROM 1 TO .FS_LENGTH (ADD_CHARS) DO 
; 43 $ e FS_WCHAR (SAVE rena ARS, CHSRCHAR A (PTR)); 
; 2) 0708 6 Copy the truncation text to the MRA and update pointers. 
; eee BoM ? brk = .FS_ START (ADD_CHARS); 
; «6584 0711 6 INCR I FROM 1 TO .FS_LENGTH (ADD CHARS) dO 
: a8? Bo18 ? FS_WCHAR (MRA, CASRCHAR_A (PTR)); 
3; 387 0714 6 TSF_INT_HL = .TSFLINT_HL + .FS_LENGTH (ADD_CHARS); 
; 588 0715 6 TSF “EXT *HL = TSF “EXT. HL + FS” LENGTH (ADD- CHARS); 
; 589 0716 5 END; 
; 590 0717 5 
; «591 3444 5 ' Put out the subtitle. 
; 98 719 5 If .TSF_INT_HL NEQ 0 
: 720 5 THE 
: 594 721 6 BEGIN 
: 595 7 ; 6 
; 596 07 6 ' Center the subtitle if the user wants it centered. 
; 597 0724 6 IF .HCT_LAYOUT EQL LAYOUT_CENTERED 
; 598 bis? 6 HEN 
; 599 07 $ 6 TSF_ADJUST = (.GCA_LWIDTH = .TSF_EXT_HL)/2 
; 600 0727 6 LSE 
3; 601 0728 6 
; 60 0729 6 ' See if user wants subtitle fli Me ed. 
; 60 0730 7 IF (. ast LAYOUT EQL LAYOUT_FLIP_ODD) 
3 604 0731 6 -ACT_ODD_EVEN T Tests TRUE if odd 
; 605 736 6 Pa 
; 606 733 6 TSF_ADJUST = .GCA_LWIDTH = .TSF_EXT_HL; 
; 607 734 6 
; 608 bree 6 ! Output the subtitle. 
3 rst 8589 ° LOUT (); 
3; 611 0738 6 ! If we truncated the MRA, then testore its saved text. 
; 61¢ 739 6 if .FS_LENGTH (SAVE * CHARS) GTR O 
3; «61 740 8 THEN 
; 614 741 BEGIN 
3; 615 a) 7 ! Truncate poets to make sure we write saved characters 
3 o18 7435 7 i back t 0 the 2 Puace fhey were overwritten from. 
; 6} 744 7 TRUNCATE ( TRUNCATE POINT 
: 618 745 f PTR = .FS_START (SAVE TMaRS) ; 
: 620 747 7 INCR I FROM 1 TO .FS_LENGTH {say EC HARS) DO 
: 621 748 7 FS_WCHAR (MRA, CA RCHAR_A (PTR)); 
3; 6 § 749 7 
ae 750 6 END; 
; 624 751 6 END 


H 16 
TOPPAG Top of the page processin 16-Sep-1984 01:53:59 AX-11 Bliss-32 V4.0-74 
v04=000 TOPPAG == 9 . 1o738b-1982 94:38:38 FaUnoresreitopPAG. OL I 
; 625 7 § SE 
3 6 8 7 ! If the user said .SUBTITLE but the subtitle is empty 
; 6 754 ! reserve the Line so all pages have the same layout. 
; ? 8 f 5 NO_BAR_SKIP (1); 
; 630 7 5 ! Restore subtitle status 
; 631 758 TSF_LINT_HL = .HOLD_TSF_INT_HL; 
3; 6 § gf 9 TSF_LEXT HL = .HOLD_TSF_EXT_HL; 
; 6 760 TSF-ADJOST = .HOLD-TSF-ADJOST; 
: 634 761 FS_NEXT (MRA) = 7HOLD_MRA_NEXT; 
; 635 168 5 FS-LENGTH (MRA) = .HOLD-MRA-LENGIH; 
; 637 rer ? END; ! End of subtitle processing 
; 638 765 4 ! Restore status of pagin " 
; 639 766 4 PHAN_PAGING = .HOLD_PAGIN 
; 640 0767 4 E ! End of phan_header EQL true 
> 641 0768 ELSE 
: org 0769 
3; «64 0770 ' Even if there was no header on this page. still reserve the 
; 644 0771 ' Lines so that all pages have the same layout. 
3; 645 bere IF .HCT_SUBTITLE 
: 646 077 THEN 
; 647 0774 4 NO_BAR_SKIP (2) 
; 648 0775 ; ELSE 
: 649 0776 NO_BAR_SKIP (1); 
; 650 0777 ; 
; 651 0778 NO_BAR_SKIP (2); ! Generate two blank Lines after titles. 
; O36 0779 END; ' End: processing of headers. 
3; 65 0780 
: 654 0781 + 
3 695 1414 ' Output topnotes. 
; 656 078 - 
s G57 U 0784 ZIF DSRPLUS XTHEN 
; 658 U 0785 ! 
3; 659 U 07 § ! See if topnotes are enabled. 
; 660 U 078 : 
3; 661 U Bree IF (.tn_internal_enab OR .tn_user_enab) 
; 66 U 0789 
; 66 U 0790 ((.tn_internal_int GTR 0) OR (.tn_user_int GTR 0)) 
; 664 U 0791 N 
: 665 U re tnout (); 
; 666 th 2FI 
: 667 794 
3 298 B82 ! The following block generates accuaul sted figures in a ‘'safe’’ way. The 
; 66 as ! need for a ‘‘safe"' uay of generating the eg qumulated figures was 
; 670 79 ! demonstrated by a file that contained a .figure deferred 58 command. What 
; r) 798 ! happened is that there was an access violation. The reason for that is 
3 O76 799 ' that the NO_BAR_SKIP macro generates a call on USKIPL. And USKIPL checks 
, OF 800 ! for the end ot-page happening as t generates lines; if it detects that 
3: 674 801 ' it calls NEWPAG which calls this module. BUT, before this module finishes 
; 675 Hi ! it generates the deferred figures, thereby leading to a loop that finishes 
; 676 80 ' only when the stack overflows. The fix is to clear the deferred figure 
; 6” 4 ' count before issuing the macro. Then when we get called again, we will not 
; o78 5 ! see any more figures to be generated, and the loop will go away. 
& p) Bat 
; ro 08 3 
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X = .PHAN FIGURE; 
PHAN FIGURE = 0; 
NO BAR. SKIP (x5; 


NO_BAR_SKIP (.PHAN_FIGURE); 
PHAN_TOP_FIRST = FALSE; 
PHAN_HEADER = TRUE; 

MRA = .HOLD_MRA; 

TSF = .HOLD_TSF; 


END; 
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14-$ep-1984 15:08:20 ERUNOFFOSRESTOPPAG-BLI; 


Generate deferred figures. 

No longer at top of first i ¥ 
Enable headers for subsequent pages. 
Switch back to the usual 

text buffers. 


End of TOPPAG 
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-PSECT $PLIT$,NOWRT,NOEXE,2 
00000 P.AAA: .ASCII \page \<0><0><0> 
00008 P.AAB: .ASCII \PAGE \<0><0><0> 
00010 P.AAC: .ASCII \Page \<0><0><0> 
-PSECT S$OWNS,NOEXE,2 


00000 ADD_CHARS: 
LONG 


: 0, 0, 50, 0 
00010 “BLKB 50 
00042 *BLKB 2 
00044 SAVE_CHARS: 
.LONG 0, 0, 50, 0 
00054 *BLKB 50 
.EXTRN DATTIM, FRA, GCA 
"EXTRN HCT, MRA, NPAGEN 


N R 
“EXTRN CNVDAT, ERM, ERML 
-EXTRN ERMN, LOUT, PACPAG 
-EXTRN PAGFND, PUTTPG, USKIPL 


-PSECT S$CODES,NOWRT,2 
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9 000 MOVAB 394 (SP) SP 
D0 00 MOVL #5, PAGE_STRING_LENGTH 
p4 CLRL = SAVE_CHARS+1 

: F MOVAB SAVE~CHARS+16, SAVE_CHARS 
D 1A MOVL § SAVE~CHARS, SAVE_CHARS+4 
DD 5 PUSHL MRA 

DD 8 PUSHL TSF 

p CLRL ERA+I2 

E 7 MOVAB FRA+16, FRA 
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HCT+8, 14$ 

OO UANe 28. 15$ 

eran HOLD_PAGING 
PHAN+4 


HOLD_TSF_INT_HL 
6), HOLD. TSF_ABUUST 


), HOLD_MRA_NEXT 
05 HOLD _MRA_LENGTH 
+12, 18$ 


#3 
WORK_AREA, PTR 
PTR 
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2, PACPAG 

R ; PAGE_LENGTH 
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RO, Ri, FILC_COUNT 


A, RO 
(RO), 8(RO), RO 


MR 
12 
RO, FILL_COUNT 
19$ 


= (SP) 
ARNE PWF 
#3, ERM 


UNT, I, 208 
#6, #2 


Page lg! 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Ge Ge Se Se Ge Se Se Se Be Se Se Be Fe Se Be He Se Se Se Fe Se Se Fe Ge Ge Be Se Se Fe Fe Se Se Se Se Fe Se Se 


CooCoCCooo 
PAM 
Ft et et ee 
PEOworn 


16 
TOPPAG Top of the page processin 18-56 =1984 01:53:59 AX-11 Bliss-32 V4.0-74 
v04=000 TOPPAG «== 9 . 1 =300- 1382 93:38:30 RUNOFF .SRCJTOPPAG.BLI; 
53 D4 002A CLRL j 
C 11 002A BRB 8$ 
00 B80 19 BE 90 002A5 27$ MOVB  aPTR, @0(RO) 
1 AF D6 OOCAA INCL PTR 
60 D AD INCL (RO) 
$1 D AF INCL (R11) 
FO 53 6 F B1 28$ AOBLEQ PAGE_STRING_LENGTH, I, 27$ 
10 AE 14 af 9E BS MOVAB WORK_AREA, PTR 
53 D4 OOOBA CLRL 
0c 11 0 BC BRB 0$ 
00 B0 10 BE 90 OO2BE 298 MOVB PTR, a0(RO) 
10 AF D6 0 C INCL PTR 
60 D ¢ INCL (RO) 
$1 Dg 02¢ INCL 1) 
FO 53 4 F3 QOOOCA 30S AOBL Ea PAGE_LENGTH, I, 29$ 
50 62 55 ci 002¢ ADDL LL=COUNT, (R2), RO 
50 54 (CO 00 D ADDL AGE~LENGTH, 
62 50 56 C1 002D + ADDL PAGE STRING. LENGTH, RO, (R2) 
50 55 04 A2 C1 00209 ADDL3 4 (R23, FILLCOUNT, RO 
50 54 CO 002DE ADDL2 PAGE_LENGTH> RO 
04 A2 50 56 C1 00261 ADDL3 PAGE-STRING.LENGTH, RO, 4(R2) 
50 000000006 EF 09 0266 31$:  MOVL  TSF,~RO 
60 05 002ED TSTL (ROS 
59 13 OOEF BEQL  34$ 
01 000000006 EF 01 002F1 CMPL 4HCT+28, #1 
10 le 002F8 BNEG  32$ 
51 000000006 FF 04 AO C3 OO2FA SUBL3. 4(RO), aGCA+140, R1 
28 AO 51 02 C7 00303 DIVL3 ie Ri, 40(RO) 
1A 11 00308 BRB 33§ 
02 000000006 EF D1 00304 32$:  CMPL HCT+28, #2 
11 if 0311 BNEQ  33$ 
OA 000000006 EF E 00315 BLBC_ HCT+16, 33$ 
28 AO 000000006 FF 04 AO C3 O0031A SUBL3 4 (RO), @GCA+140, 40(RO) 
000000006 EF 00 FB 005 4 338: CALLS #0, LOUT 
0 000000006 EF D0 00 MOVL TSF, RO 
60 7 70 003 MOV §HOLD_TSF_INT_HL, (RO) 
28 «AO 59 D0 0035 MOVL HOLD TSF ADJOST. 40(RO) 
50 000000006 FF D0 003 9 MOVL  MRA,~R 
04 AO A DO 00340 MOVL § HOLD_MRA_NEXT, 4(RO) 
0c Ao 38 D0 0344 ROVL HOLD"MRA“LENGTH, 12(RO) 
52 7c =A 01 60 Ef O34A 34$:  EXTZV #0, #1, 124(RO), HOLD_BARS 
7¢ =A 01 8A 00350 BICB2 #1. 124(R0) 
ot DD 24 PUSHL #1 
000000006 EF 1 &F 6 CALLS #1, USKIPL 
0 000000006 EF D 5D MOVL TSF, RO 
7c =A 01 0 2 F 64 INSV —_—- HOLD BARS #0, #1, 124(RO) 
03 000000006 FF 5 6A 35$:  BLBS aHCT#24, $6$ 
03h 1 1 BRW 66$ 
5 04 00374 36$: CLRL =‘ TRUNCATE_POINT 
0 0 0 G EF D4 00376 CLRL = FRA#1 
900 0000G EF G EF : xc MOVAB FRA+16, FRA 
00000006 EF G EF DO 0038 MOVL FRA, FRA+4 
EF D4 CLRL_ ADD. CHARS#1 
0000000' EF ' EF 5 9 MOVAB ADD"CHARS+16, ADD_CHARS 
0000000" EF 6 ' EF OD A MOVL ADD CHARS ADD _CHARS+4 
0000' EF D4 OO3AE CLRL — SAVE_CHARS+1 
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TOPPA Top of th i 16-Sep-1984 01:53:59 AX=11 Bliss-32 V4.0-74 Pa 
VO4e080 IN) a a al cl tata 1eree=} 88s 94:38:38 | HAMA) Obhess3z ye -Or74 wis 

00" EF ' EF 9 B4 MOVAB SAVE_CHARS+16, SAVE_CHARS ; 

a9 00' EF 6 ' EF p BF MOVL  SAVE-CHARS, SAVE_CHARS+4 : 

00G EF G EF 9E OO03CA MOVAB SBTTSF, TSF : 

MO00H000G FF BooboOuOS EF BD HOeeS mov | Oter ao : 

3 6 » EO MOVG (ROS, HOLD TSF_INT_HL : 

9 8 A 06 EA MOVL 40(R6), HOLD. TSF_ABJUST : 

21 0000009 G EF DO EE MOVL MRA, Ri : 

A 4 Al OD F MOVL 4(R1), HOLD_MRA_NEXT : 

58 O¢ Al 00 03F9 MOVL 12(R1$, HOLB_MRA_LENGTH : 

03 000000006 _ FF 5 O3FD BLBS  aHCT+4, 38$ : 

00A6 31 404 378: BRW 43$ : 

51 000000006 EF 00 407 38$: MOVL  HCT+28, R1 : 

03 > bf bode fmet OTS a3 : 

EF 12 0041 BNEQG 37$ : 

10 AE 14 AE 9E 00415 39$:  MOVAB. WORK_AREA, PTR : 

OC AE OF O04 1A PUSHAB DATE-LENGTH : 

14 AE 9F 0041D PUSHAB PTR : 

000000006 ai 9F 00420 PUSHAB DATTIM : 

000000006 EF 3 FB 04 6 CALLS #3, CNVDAT : 

28 Tf popobRe FE BO Socks MOV. accAei40, R2 : 

51 52 OC AE Og 00438 SUBL3. DATE_LENGTH, R2, R1 : 

eb OD YS bode oe Get 

00000000° FF 20 90 90446 MOVB #32, @ADD_CHARS+4 : 

SSSSHHG: Be SSE AEE EASE : 

1 459 MOVL #1," : 

00000000° P 1 3 O45 40$:  MOVB #46, @ADD_CHARS+4 : 

$6000000" EI Dg 0469 aerate 

F3 OO46F AOBLEQ . ; 

? 0000000" Fr 23 90 a9473 OVB #32, SADD_CHARS+4 : 

00000000' EF Dé O047A INCL ADD. CHARS?4 : 

00000000" EF 06 00480 INCL  ADD7CHARS+12 : 

10 AE 14 i 9E a NOVAB WORR_AREA, PTR 

17 11 0048D BRB 42$ : 

00000000" FF 19 BE 90 8 fF 41$:  MOVB PTR, @ADD_CHARS+4 : 

00000000" FF be SOcoA INCE ADE CHARS#4 , 

00000000" EF D6 O4A0 INCL ADD “CHARS+#12 : 

E4 50 0c AE 3 O4A6 42$: AOBLEG DATE _LENGTH, 1, 41$ 

F GAD 43$:  MOVL  a@GCA+140, R2 ; 

25 wane * ho b} O44 ia CPL 4(RO), Re : 

00000000' FF 8 90 004BA MOVB #32, @ADD_CHARS+4 : 

ggonmae: fr Be SS) BR CST : 

4 MOVL 7 : 

00000000" FF i i 408 45$: MOVE #46, @ADD_CHARS+4 

Sb000000" EE bg 3 igen eae 

E9 50 65 F 4e3 AOBLEQ ot rat : 


oo 
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TOPPAG Top of the page processin 16-Sep AX-11 Bliss-32 v4.0-742 ia 19 
v04-000 1 cael ep slates 1ereen 1 8Re Ph:353h | HANNA) Ohtegsze ve -Orree age a) 
50 00000000' f p69 4E7 468 MOVL ADD _CHARS#12, RO ; 0661 | 
52 0 D1 O04F CMPL RO, R2 : 0662. 
9 19 4F BLSS 54 : 
i 990000006 FF £9 O04F5 47$ BLBC  @HCT+4, 53$ + 0668 
50 000000006 i 20 Oar MOVL HT +26, RO ; 0669 
0 Di 00303 CMPL R0 #3 + 0670 
62 12 00 BNEQ 536 : 
m 000000906 Ef p 030A 48$ MOVL TSF F RI ; 0677 
54 2 o¢ AE ¢ 0313 SUBL DATE i R2, FILL_COUNT : 
000000006 EF Db 1A MOVL + 0681 
5 4 AO i 00521 MOVAB vie : 
50 000000006 EF 06 009 3 OVE MRA, a 
09 11 005 ; BRB : 
00 B2 0 90 00530 49s MOVB #32 a0(R2) : 
62 D6 005 INCL (R25 : 
0c Ao D6 00536 INCL 12(RO) : 
F3 53 54 F 0939 50$ AOBLEQ FILL_COUNT, RP 49$ + 0680 
10 AE 14 AF 9E 0053p MOVAB WORK~AREA, > 0684 
53 D4 00542 CLRL > 0686 
OD 11 00544 BRB 2$ : 
00 B82 19 2 90 00546 51$: OVE aPTR. a0(R2) ; 0687 
65 D6 0054E INCL  (R2) : 
Oc Ao D6 90550 INCL 12(RO) : 
EE 53 OC AE £3 00553 52$:  AOBLEQ DATE -LENGTH, 1, 51$ > 0686 
50 61 54 Ci 00558 ADDL3 FILL~COUNT, (R1), RO : 0690 
61 Oc BE4O 9E 0055¢ MOV SDATE “LENG HERO}: (R1) : 
50 54 04 Al C1 00561 ADDL3 4(R1)> FILL COUN , RO + 0691 
046 Al OC BE4O 9E 00566 MOVAB aDATE *LENGTA ROJ, 4(R1) : 
68 11 0056C 53$: BRB > 0661 
55 52 50 C3 00565 54$: SUBL3 RO, R2 TRUNCATE _POINT : 0698 
55 DD 0057 PUSHL TRUNCATE : 0701 
00000000v EF 01 FB 00574 CALLS #1, TRUN tae : 
10 gg ommwengge Se hy Ban 
51 00000000' Ef D0 0038? MOVL ADD_ thaRs*12, R1 ; 0705 
3§ 11 80396 BRB 6$ : 
00000000" FF 19 BE 90 o033h 55$: ROVE apTR. @SAVE_CHARS+4 ; 0706 
90000000" EF D6 0890 INCL § SAVE_CHARS+4 : 
00000000° Ef D6 O05A INCL SAVE ~CHARS#12 ; 
ES 52 1 F3 005A9 56 AOBLEQ Ri, > 0705 
10 AE 00000000° gE v6 OOdAD MOVL ADD_CHARS, PTR : 0709 
0€ 11 $383 BRB 8$ : 
04 BO 10 BE 90 00589 57$: Move aPTR, @4(RO) : 
10 AE D6 O58 INCL TR ; 
4 AO D 0 C INCL 4¢RO) ; 
C A D C4 INCL 12(RO : 
- 85 oooov000s ce bd bOetR Rone’ Ts. 5378 : Ort} 
60 gf CO Oebe ADDL2 ( ) : 0714 
| 
= 
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TOPPAG Top of the page processin 1b-se 1984 9 AX-11 Bliss=-32 V4.0-74 Page 
v04=000 TOPPAG == 9 ° 12-88-1382 of: 38; 38 RUNOFF..SRCJTOPPAG.BLI; 2 (d3 
04 Ad 51 ¢O 00505 ADDL2 1, 4(RO) : 0715 ; 
50 000000006 EF DO 00509 59s MOVL TSF, RO : fare ; 
0 D E TSTL (ROS : : 
dD 1 E BEQL 64$ : ; 
01 000000006 fF pj O5E4 CPL HT +28, #1 + 0724 ; 
51 000000006 FF 04 19 c§ O5ED SUBL 4(RO), aGCA+140, R1 : 0726 ; 
28 =A 51 02 ¢ 09F6 DIVL3S #2, RI, 40(RO) : ; 
1A 11 005FB BRB 61$ : ; 
02 000000006 Ff D1 O05¢ 60$:  CMPL  HCT+28, #2 t 0730 : 
0A 000000006 Ef 9 0606 BL. HCT#16, 618 : 0731 
28 ad 00000000G FF 06 AO € Seas SUBL3 4 (RO) @GCA+140, 40(RO) : 0733 ; 
000000006 00 Fe 0617 61$: CALLS #0, LOU : 0736 ; 
00000000' a D5 0061E TSTL SAVE_CHARS+12 > 0739 ; 
B 15 00624 BLEQ  65$ ~ : ; 
55 DD 00626 PUSHL TRUNCATE_POINT 3; 0744 3 
00000000V EF 01 FB 06 g CALLS #1, TRUNCATE : ; 
10 AE 00000000" EF DO 006eF MOVL SAVE _CHARS, PTR + 0745 ; 
50 000000006 EF DO 00637 MOVL RO + 0748 F 
51 000000006 EF DO 0063E MOVL MRA’ RI : ; 
52 D4 00645 CLRL : ; 
OE 11 00647 BRB 63$ : ; 
04 BO 10 BE 90 00649 62$: MOVB @PTR, a4(RO) s 3 
10 AE D6 0064E INCL PTR : ; 
04 AO D6 00651 INCL 4{R0) : 
Oc At Dg 00654 INCL  12(R1 ; 
EA 52 00000000' EF F3 00657 63$: | AOBLEQ SAVE "CwaRse12, 1, 62$ : 0747 
0 11 0065F BRB 65$ ~ : 0719) 
52 7c =A 01 00 EF 00661 64%:  EXTZv #0, #1, 124(RO), HOLD_BARS : 0755 
7c =A 01 8A 00667 BICB2 #1. 124(R0) : 
01 DD 00668 PUSHL #1 : 
000000006 _ EF 01 FB 0066D CALLS #1, USKIPL ; 
50 000000006 EF DO 00674 MOVL TSF, ; 
7C AO 01 00 2 FO 0067B INSV HOLD =BARS. #0, #1, 124(R0) : 
50 000000006 EF DO 00681 65$:  MOVL TSF : 
60 57 7D 00688 MOVG HOLD_TSF_INT_HL, (RO) : 0758 
28 «AO 59 DO 00688 MOYL HOLD™ “13 “ADJOST. 40(RO) : 0760 
50 000000006 Ef DO 0068F MOVL MRA,~R > 0761 
04 AO A DO 00696 MOVL | HOLD_MRA_NEXT, 4(RO) ; 
0c Ad 5B DO 0069A MOVL HOLD “MRA-LENGTH, 12(RO) : 0762 
000000006 FF 08 AE dO 0069 66$:  MOVL HOLD"PAGING, a@PHAN+40 + 0766 
3¢ (11 O66 BRB 708 ; 
50 990000006 EF 09 O06A 67$:  MOVL : 0774 
OE 000000006 FF £9 OO6AF Blac ancts 038, : 0772 | 
52 7c =A 01 00 EF 90686 EXTZV #0, 12¢Ro»,, HOLD_BARS > 07764 | 
7c AO 01 8A 0068C B1CB2  T2kR : 
02 DD 006 9 —- PUSHL : 
€ 11 006C BRB 4 $ ; 
52 7c =A 01 00 Ef 06C4 68%:  EXTZV #0, " 1chgg (RO - HOLD_BARS : 0776 
7c =A 1 BA O06CA BICB2 ; 
1 DD 006C¢ PUSHL : 
000000006 EF 1 FB 006D0 69$: CALLS #1, USKIPL ; 
0 000000006 EF D 60 MOVL SF, R ; 
7c =A 01 00 2 FO O06DE INSY HOLD_BARS, #0, #1, 124(RO) ; 
-§0 000000006 FF DO 006E4 70$: MOVL : 0778 
52 7c =A 01 0 EF 006EB EXTZV #0, #1, 124(RO), HOLD_BARS : 


; | 
TOPPAG Top of the page processin 1b. e 4 01:53:59 AX-11 Bliss-32 V4.0-74 Page 21) 
04-000 TOPPAG «== 9 . er ee- 1 3he Fhi8838 | Hane the sraepheo 4, oe 
| 
7c =A 1 BA 006F1 BICB2 #1, 124(RO) ; 
‘ DD FS PUSHL ’ : | 
000000006 EF F F CALLS USKIPL : 
0 000000006 EE D FE MOVL R : 
7c =O 01 0 2 FO 0070 INSV Ist ions #0, #1, 124(RO) : 
1 000000006 EF D 970 71$:  MOVL = PHAN? : 0810) 
00000006 EF D4 0071 CLRL PHAN “1 > 0811 
50 000000006 EF DO 071 MOVL + 0812 
52 7c =A 01 0 FF 71F EXTZV i. ‘a 1g (RO? HOLD_BARS ; 
7c =A 1 8A 00725 BICB2 : 
000000006 EF 31 Pe $3 4 CALLS f USKIPL : 
F 000000006 EF D0 007 ; MovVL = TSF, ; | 
7¢ AO 01 00 2 FO 007 INSV HOLD ea #0, #1, 124(RO) : 
52 7c =A 01 00 EF 073F EXTZV 124(R 6), HOLD_BARS > 0815 
7c =A 01 8A 00745 BICB2 Ae ’ dh cR : 
000000006 FF DD 00749 PUSHL PHAN+ : 
000000006 EF 1 FB O074F CALLS #1, USKIPL : 
0 000000006 EE DO 00756 MOVL : 
7c =A 01 00 2 FO 0075p INSV - HOLD_BARS, #0, #1, 124(RO) : 
000000006 FF D4 00763 CLRL PHAN? 24 > 0816 
000000006 FF 1 D0 00769 MOVL #1, @PHAN+28 : 0817 
000000006: EF 04 AE DO 00770 MOVL § HOLD_MRA, MRA + 0818 
00000v00G_ EF 6E D0 00778 MOVL § HOLD“TSF. TSF + 0819 
04 0077F RET + 0821 


; Routine Size: 1920 bytes, Routine Base: S$CODE$ + 0000 


3; 695 0822 1 


z 
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TOPPAG he page processin 15 -1984 01:53:59 AX-11 Bliss-32 V4.0-742 P | 
04-000 f A syeahis . once 13he Fhidaisa «| HAlnore saesrosphe on; f4 age og 


To 

TR 
; 697 oe 3 1 2SBTTL "TRUNCATE -=' | : 
; 698 824 1 ROUTINE truncate (where) : NOVALUE = ; 
: 699 0825 1 | : 
; 700 08 § 1 !44 $ 
: 49! bs 4 ! : FUNCTIONAL DESCRIPTION: | : 
s 70 0829 1! This routine TRUNCATES the text represented by a TSF/MRA pair. $ 
; 704 0830 1! It does this by scanning the MRA con counting printing | : 
; 705 0831 1! characters (that is, non-escape-sequences). : 
; 706 bars 1! $ 
s 707 083 1 ! FORMAL PARAMETERS: $ 
: 708 oe 1! 3 
; 709 0835 1! where = The column at which to truncate the TFS/MRA. $ 
s 710 0836 1! ; 
Eee ah 0837 1 ! IMPLICIT INPUTS: None : 
3 re 0838 1! 3 
: 71 0839 1 ! IMPLICIT OUTPUTS: ; 
: «714 0840 1! ; 
: ot? ea } The current TSF/MRA is modified to effect the desired truncation. : 
: 77 SBes 1 ! ROUTINE VALUE: ; 
; 718 0844 1 ! COMPLETION CODES: None : 
; Ti? 0845 1! PF 
; 720 0846 1 ! SIDE EFFECTS: None : 
s fel 0847 1 !-- : 
5 fee 0848 1 F 
3s es 0849 2 BEGIN $ 
3: 724 0850 2 LOCAL $ 
: feo 0851 2 EXT_LEN, : 
3; 726 bas 2 INT_LEN, ; 
s ver 08535 2 3 ; 
; fee 0854 § : 
; fa 0855 EXT_LEN = 0; 3 
; 730 0856 2 INT_LEN = OQ; ; 
; 731 0857 2 PTR"= .FS_START (MRA); ; 
; te 0858 2 : : 
ee of 0859 2 ' First skip over ony vertical-motion escape sequences. : 
; 734 0860 2 IF .TSF_INT_VL GTR : 
3 735 0861 THEN ; 
3 re Bag : 
: 737 086 INCR I FROM 1 TO .TSF_INT_VL DO : 
: eee Fe: CHSRCHAR_A (PTR); : 
; 740 0866 ! Now we are in the horizontal-motion part of the MRA. Scan the MRA, counting : 
3 741 0867 ! ee characters, until we reach the specified truncation point. s 
; 74 0868 WHILE .EXT_LEN NEQ .WHERE DO : 
3 74 0869 BEGIN - 
3 67446 0870 ; 
3; 745 0871 IF CHS$RCHAR_A (PTR) NEQ RINTES $ 
3: 746 pas THEN : 
: 767 0873 4 BEGIN 3 
: 748 0874 4 ! Normal text. Increment both internal-length and external-length counts. : 
3 «749 BBoe 4 EXT_LEN = .EXT_LEN + 1; 3 
; 750 6 4 INT_LEN = .INT_LEN + 1; 
3; 751 0877 4 END 
: P36 + 144 ; Lae : i 
ee 087 ! An escape sequence. Add it to the internal-length count and advance 


Bey ee eT, coats AR een, Oeil Peed a ee a eh A ee Cerra eC ME ORM ar SAM a eC eat QIN RL Ee eigen aaa 


; Routine Size: 91 bytes, Routine Base: S$CODES + 0780 


770 +4) 1 
771 0897 1 END ' End of module TOPPAG 
772 0898 


F 1 | 
TOPPAG Top of the page processin 16-Sep-1984 01:53:59 AX-11 Bliss-32 V4.0-74 Page 23) 
v04-000 TRUNCATE =e > . 12-808 - 1 3b 93:38:30 RUNOFF ..SRCJTOPPAG.BLI; ’ 8) 
3; 754 80 3 ! the pointer beyond it 
Bee fetes niet cen» 3 
: 757 oBa$ 4 CHSRCHAR_A (PTR); | 
: 758 0884 4 CHSRCHAR-A (PTR): 
: 759 0885 END; | 
: 760 0886 
: 761 088 END; 
: re tts ! Update the TSF and MRA ff h i | 
3 ; ate e an to effect the truncation. 
> 764 0890 isk Ex T_HL = -EXT LEN; 
: 765 0891 TSFTINT“HL =. INTILEN | 
; 766 be FS_CENGTH (MRA) = INt_LEN + .TSF_INT_V 
: 167 0893 : FS"NEXT (MRA) = CHEPLUS ( .FS_START CARAS. .FS_LENGTH (MRA) ); 
: 769 0895 1 END; ! End of TRUNCATE 
003C 00000 TRUNCATE: 
.WORD Save R2,R3,R4,R5 > 0824 
55 D4 00002 CLRL —«EXT_LEN + 0855 
53 D4 00004 CLRL —«INTLEN : 0856 
50 000000006 EF DO 00006 MOVL RA™ RO : 0857 
54 60 DO 0000D MOVL (ROS, PTR : 
51 000000006 EF DO 00010 MOVL ‘TSF, + 0860 
18 Al D5 00017 TSTL g4cR1) : 
0B 15 OOO1A BLEQ $ : 
52 D4 O00IC CLRL i > 0863 
02 11 OOO1E BRB $ ; 
54 D6 90020 1$: INCL PT + 0864 
F9 52 mo ae 0082 3: AOBLEQ 24 (RI). dy 1$ ; 
04 AC 55 D1 00027 38: CMPL  EXT_LEN, WHERE : 0868 
1A 13 00028 BEQL 5$ ~ : 
52 84 9A 00020 MOVZBL . (PTR + 0871 
000000006 8F 52 D1 00030 CMPL ~=s R2, # yRintes : 
06 13 00 7 BEQL 6 4$ ; 
55 D6 0039 INCL  EXT_LEN > 0875 
53 06 00038 INCL §INTTLEN : 0876 
EB 11 00030 BRB 3$ > 0871 
34 B3 ER peeta Seats gat Bae at 
a) Bae amate Bs 
04 Al 5 p00 00047 5$: MOVL EXT_LEN, 4(R1) : 0890 
61 53 pO 00048 MOVL INTTLEN, (R1) > 0891 
oc Ad 18 B143 9E 0004E MOVAB ag4tRi)CINT LEN], 12(RO) : 089¢ 
04 Ad 60 0c Ad C1 00054 ADDL3 12(RO), (ROT, 4(RO) : 089 
04 0005A ET > 0895 
| 


vO4-600 thomtare eee Preceneine ies Sep 1984 13:08:30  ERONOFF SRESTOPPNG-BL{; 


PSECT SUMMARY 
Name Bytes Attributes 


Sete Sete Se Ge Ge 


SOWNS 134 ever? WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS $6 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 2011 NOVEC.NOWRT, DD, EXE.NOSHR, LCL. REL, CON.NOPIC.ALIGN(2) 
: Library Statistics 
Bp ae te Se ete (| 2 eels Syabols eoocwese Pages Processing 
‘ File Total Loaded Percent Mapped Time 
: _$255$DUA28: f Shea pe raid -L32;1 590 9 0 252 00:00 -¢ 
3 ~$255$DUA28: CRUNOFF SRCIDSRLIB.L32;1 1248 7 5 86 00:00. 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: TOPPAG/OBJ=0BJ$:TOPPAG MSRC$: TOPPAG/UPDATE=(ENH$: TOPPAG) 
; Size: 2011 code + 158 data bytes 
Run Time: 90: 98 4 


; Elapsed Time: 01:17.8 
3; Lines/CPU Min: 1403 

3; Lexemes/CPU-Min: 17704 

: ponaey Used: 382 pages 
: a 


; Compilation Complete 


roe is 


ORATION 
IETARY 


AND PROPR 


Oo 
Oo 
Oo 
oO 
— 
= 
Lil 
= 
a 
ei 
=a 
oa 
Lu 
anal 


ENTIAL 


T CORPORATION 


AH-BT13A-SE 
PROPRIETARY 
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